home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / WINER.ZIP / CHAP6-10.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  585b  |  26 lines
  1. '*********** CHAP6-10.BAS
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6.  
  7. OPEN "\DEV\NUL" FOR RANDOM AS #1 LEN = 30
  8. FIELD #1, 10 AS First$, 10 AS Middle$, 10 AS Last$
  9. FIELD #1, 30 AS Entire$
  10. LSET Entire$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234"
  11. Start! = TIMER
  12. FOR X = 1 TO 20000
  13.   Temp = ASC(Middle$)
  14. NEXT
  15. Done! = TIMER
  16. PRINT USING "##.### seconds for FIELD"; Done! - Start!
  17. CLOSE
  18.  
  19. Entire$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234"
  20. Start! = TIMER
  21. FOR X = 1 TO 20000
  22.   Temp = ASC(MID$(Entire$, 10, 10))
  23. NEXT
  24. Done! = TIMER
  25. PRINT USING "##.### seconds for MID$"; Done! - Start!
  26.